Imports System
Imports System.Configuration
Imports System.Data

Namespace effority.WF_HTML

   Public Class HtmlTextInfo

      Private _Id As Integer
      Private _ModuleId As Integer
      Private _DeskTopHTML As String
      Private _DesktopSummary As String
      Private _CreatedByUser As Integer

      Private _DisplayName As String
      Private _Username As String

      Private _CreatedDate As DateTime
      Private _Version As Integer
      Private _Active As Boolean

      Public Sub New()
      End Sub

      Public Property Id() As Integer
         Get
            Return _Id
         End Get
         Set(ByVal Value As Integer)
            _Id = Value
         End Set
      End Property

      Public Property ModuleId() As Integer
         Get
            Return _ModuleId
         End Get
         Set(ByVal Value As Integer)
            _ModuleId = Value
         End Set
      End Property

      Public Property DeskTopHTML() As String
         Get
            Return _DeskTopHTML
         End Get
         Set(ByVal Value As String)
            _DeskTopHTML = Value
         End Set
      End Property

      Public Property DesktopSummary() As String
         Get
            Return _DesktopSummary
         End Get
         Set(ByVal Value As String)
            _DesktopSummary = Value
         End Set
      End Property

      Public Property CreatedByUser() As Integer
         Get
            Return _CreatedByUser
         End Get
         Set(ByVal Value As Integer)
            _CreatedByUser = Value
         End Set
      End Property

      Public Property DisplayName() As String
         Get
            Return _DisplayName
         End Get
         Set(ByVal Value As String)
            _DisplayName = Value
         End Set
      End Property

      Public Property Username() As String
         Get
            Return _Username
         End Get
         Set(ByVal Value As String)
            _Username = Value
         End Set
      End Property

      Public ReadOnly Property UserInformation() As String
         Get
            Return Me._DisplayName & " (" & Me._Username & ")"
         End Get
      End Property

      Public Property CreatedDate() As DateTime
         Get
            Return _CreatedDate
         End Get
         Set(ByVal Value As DateTime)
            _CreatedDate = Value
         End Set
      End Property

      Public Property Version() As Integer
         Get
            Return _Version
         End Get
         Set(ByVal Value As Integer)
            _Version = Value
         End Set
      End Property

      Public Property Active() As Boolean
         Get
            Return _Active
         End Get
         Set(ByVal Value As Boolean)
            _Active = Value
         End Set
      End Property

   End Class

End Namespace
